home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / user_public.asp < prev   
Text File  |  2002-03-12  |  6KB  |  262 lines
  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3.  
  4. check_security(1) 
  5.  
  6. %>
  7. <% page_title = "MY AVID CONTROL PANEL" %>
  8. <%
  9.     dim user_id
  10.     dim user_name
  11.     dim email
  12.     dim f_name
  13.     dim l_name
  14.     dim country
  15.     dim dtInserted
  16.     dim accesslevel
  17.     dim view_users_sql
  18.  
  19. sub request_view_users
  20. ''' request expected input parameters for this form
  21.     user_id = request("user_id")
  22.     user_name = request("user_name")
  23.     email = request("email")
  24.     f_name = request("f_name")
  25.     l_name = request("l_name")
  26.     country = request("country")
  27.     dtInserted = request("dtInserted")
  28.     accesslevel = request("accesslevel")
  29. end sub
  30.  
  31. sub validate_view_users
  32. ''' request and validate data entered from this form
  33.     user_id = trim(request("user_id"))
  34.     user_name = trim(request("user_name"))
  35.     email = trim(request("email"))
  36.     f_name = trim(request("f_name"))
  37.     l_name = trim(request("l_name"))
  38.     country = trim(request("country"))
  39.     dtInserted = trim(request("dtInserted"))
  40.     if dtInserted <> "" AND (not isdate(dtInserted)) then
  41.         error_list.add "485144date","joined must be a valid date (MM/DD/YY)."
  42.         b_error = true
  43.     end if
  44.     accesslevel = trim(request("accesslevel"))
  45. end sub
  46.  
  47.  
  48. sub db_select_view_Users
  49.     sql = "SELECT " & _     "user_id, " & _     "user_name, " & _     "email, " & _     "f_name, " & _     "l_name, " & _     "country, " & _     "dtInserted, " & _     "accesslevel FROM Users" & _     " WHERE " & _     "Users.user_id = " & to_sql(user_id,"number") & ""
  50.     on error resume next
  51.     set rs = cn.Execute(sql)
  52.     if err.number <> 0 then
  53.         b_error = true
  54.     elseif rs.EOF then
  55.         b_results = false
  56.     else
  57.         user_id = rs("user_id")
  58.         user_name = rs("user_name")
  59.         email = rs("email")
  60.         f_name = rs("f_name")
  61.         l_name = rs("l_name")
  62.         country = rs("country")
  63.         dtInserted = rs("dtInserted")
  64.         accesslevel = rs("accesslevel")
  65.     end if
  66.     rs.Close
  67.     on error goto 0
  68. end sub
  69. sub db_insert_view_Users
  70.     sql = "INSERT INTO Users" & _     "(" & _     "user_name," & _     "email," & _     "f_name," & _     "l_name," & _     "country," & _     "dtInserted," & _     "accesslevel" & _     ") VALUES (" & to_sql(user_name,"text") & "," & _     "" & to_sql(email,"text") & "," & _     "" & to_sql(f_name,"text") & "," & _     "" & to_sql(l_name,"text") & "," & _     "" & to_sql(country,"text") & "," & _     "" & to_sql(dtInserted,"text") & "," & _     "" & to_sql(accesslevel,"number") & ")" & _     ""
  71.     'response.write sql
  72.     on error resume next
  73.     cn.Execute(sql)
  74.     if err.Number <> 0 then
  75.         b_error = true
  76.     else
  77.         set rs = cn.Execute("SELECT @@IDENTITY")
  78.         user_id = rs(0)
  79.         rs.Close
  80.     end if
  81.     on error goto 0
  82. end sub
  83. sub db_update_view_Users
  84.     sql = "UPDATE Users SET " & _     "user_name = " & to_sql(user_name,"text") & ", " & _     "email = " & to_sql(email,"text") & ", " & _     "f_name = " & to_sql(f_name,"text") & ", " & _     "l_name = " & to_sql(l_name,"text") & ", " & _     "country = " & to_sql(country,"text") & ", " & _     "dtInserted = " & to_sql(dtInserted,"text") & ", " & _     "accesslevel = " & to_sql(accesslevel,"number") & " WHERE " & _     "user_id = " & to_sql(user_id,"number") & ""
  85.     'response.write sql
  86.     on error resume next
  87.     cn.execute(sql)
  88.     if err.number <> 0 then
  89.         b_error = true
  90.     end if
  91.     on error goto 0
  92. end sub
  93. sub db_delete_view_Users
  94.     sql = "DELETE FROM Users" & _     " WHERE " & _     "user_id = " & to_sql(user_id,"number") & ""
  95.     'response.write sql
  96.     on error resume next
  97.     cn.Execute(sql)
  98.     if err.number <> 0 then
  99.         b_error = true
  100.     end if
  101.     on error goto 0
  102. end sub
  103.  
  104. do_search = request("do_search")
  105. ''' request form keys
  106. user_id = request("user_id")
  107. ''' request action
  108. action = lcase(request("action"))
  109. ''' action case handler
  110. select case action
  111.  
  112. case "select_view_users"
  113. '  select the requested key record from database
  114. if user_id <> "" then
  115.     db_select_view_Users
  116. else
  117.     b_error = true
  118.     error_list.add "edit_view_Users", "Specify record to select."
  119. end if
  120.  
  121.  
  122. case "insert_view_users"
  123. '  request form data and insert a new record into database
  124.  
  125. validate_view_users
  126. if not b_error then
  127.     db_insert_view_users
  128. end if
  129.  
  130.  
  131.  
  132. case "update_view_users"
  133. '  request form data and update an existing database record
  134. validate_view_users
  135. if not b_error then
  136. if user_id <> "" then
  137.     db_update_view_users
  138. else
  139.     b_error = true
  140.     error_list.add "update_view_users", "Specify record to update."
  141. end if
  142. end if
  143.  
  144.  
  145. case "delete_view_users"
  146. '  delete the requested key database record
  147. if user_id <> "" then
  148.     db_delete_view_users
  149.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  150. else
  151.     b_error = true
  152.     error_list.add "delete_view_users", "Specify record to delete."
  153. end if
  154.  
  155.  
  156. end select
  157.  
  158. '  no action was specified, so handle the default case(s)
  159. if user_id <> "" then
  160.     db_select_view_Users
  161. end if
  162. %>
  163.  
  164. <!-- #include file='i_header.asp' -->
  165. <!-- #include file='i_menu.asp' -->
  166.  
  167.  
  168.     
  169. <%
  170. display_errs
  171. display_msg
  172. %>
  173.  
  174. <br><br>
  175. <table class='headerTable'>
  176. <tr>
  177. <td class='headerTD'>
  178. <A href='user_public.asp'>Member Profile</A>
  179. </td>
  180. </tr>
  181. </table>
  182. <table  >
  183. <form name="view_Users" action="" method="get" >
  184.         
  185.         <input type=hidden name="user_id" value="<% =user_id %>">
  186.         
  187. <tr>
  188.     <td class='labelTD'>username</td>
  189.     <td class='dataTD' width='75%'>
  190.         <% =user_name %>
  191.     </td>
  192. </tr>
  193. <tr>
  194.     <td class='labelTD'>email</td>
  195.     <td class='dataTD' >
  196.         <% =email %>
  197.     </td>
  198. </tr>
  199. <tr>
  200.     <td class='labelTD'>first name</td>
  201.     <td class='dataTD' >
  202.         <% =f_name %>
  203.     </td>
  204. </tr>
  205. <tr>
  206.     <td class='labelTD'>last name</td>
  207.     <td class='dataTD' >
  208.         <% =l_name %>
  209.     </td>
  210. </tr>
  211. <tr>
  212.     <td class='labelTD'>country</td>
  213.     <td class='dataTD' >
  214.         <% =country %>
  215.     </td>
  216. </tr>
  217. <tr>
  218.     <td class='labelTD'>joined</td>
  219.     <td class='dataTD' >
  220.         <% =dtInserted %>
  221.     </td>
  222. </tr>
  223. <tr>
  224.     <td class='labelTD'>member type</td>
  225.     <td class='dataTD' >
  226.         <%
  227.  
  228. select case accesslevel
  229.  
  230. case 1
  231.     accesslevel = "member"
  232. case 2
  233.     accesslevel = "VIP"
  234. case 3
  235.     accesslevel = "editor"
  236. case 4
  237.     accesslevel = "admin"
  238. end select
  239. %><% =accesslevel %>
  240.     </td>
  241. </tr>
  242.  
  243. </form>
  244. </table>
  245.  
  246. <br><br>
  247.  
  248. <!-- #include file=i_footer.asp -->
  249.  
  250.  
  251. <%
  252. ':: assure that any db resources are freed
  253. on error resume next
  254. rs.Close
  255. set rs = NOTHING
  256. cn.Close
  257. set cn = NOTHING
  258. user_cn.Close
  259. set user_cn = NOTHING
  260. on error goto 0
  261. %>
  262.